home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #2 / Ham Radio 2000 - Volume 2.iso / HAMV2 / MISC / HCAL-27 / LATLONG.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1996-04-11  |  1.8 KB  |  59 lines
  1. 10  'LATLONG - Latitude/Longitude data base - 20 JUN 95 rev. 11 APR 96
  2. 20  IF EX$=""THEN EX$="EXIT"
  3. 30  CLS
  4. 40  COMMON EX$,PROG$,LATLONG
  5. 50  LATLONG=1   'flag
  6. 60  T=7
  7. 70  PRINT TAB(24);"LATITUDE and LONGITUDE DATA BASE"
  8. 80  PRINT TAB(24);"<0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!>"
  9. 90  PRINT
  10. 100  PRINT TAB(T);
  11. 110  PRINT "Some HAMCALC programs ask you to enter the latitude and longitude"
  12. 120  PRINT TAB(T);
  13. 130  PRINT "of a location, usually your own QTH. The data base contains this"
  14. 140  PRINT TAB(T);
  15. 150  PRINT "information for many places in the world, and you may add, delete"
  16. 160  PRINT TAB(T);
  17. 170  PRINT "or edit the data at any time. Solar time zones (EQVUTC) are calculated"
  18. 180  PRINT TAB(T);
  19. 190  PRINT "automatically for each location."
  20. 200  PRINT
  21. 210  PRINT TAB(T);
  22. 220  PRINT "Enter data in decimal degrees - to the nearest 0.1 degree is close"
  23. 230  PRINT TAB(T);
  24. 240  PRINT "enough for most amateur radio applications. Enter data as follows:"
  25. 250  PRINT
  26. 260  PRINT TAB(T);
  27. 270  PRINT "LATITUDE:  as Positive (+) values if NORTH of the equator"
  28. 280  PRINT TAB(T);
  29. 290  PRINT "           as Negative (-) values if SOUTH of the equator"
  30. 300  PRINT
  31. 310  PRINT TAB(T);
  32. 320  PRINT "LONGITUDE: as Positive (+) values if EAST of Greenwich, England"
  33. 330  PRINT TAB(T);
  34. 340  PRINT "           as Negative (-) values if WEST of Greenwich, England"
  35. 350  PRINT
  36. 360  PRINT TAB(T);
  37. 370  PRINT "If you wish to find the latitude and longitude of any location in"
  38. 380  PRINT TAB(T);
  39. 390  PRINT "the database, you need only enter the first few letters of a city,"
  40. 400  PRINT TAB(T);
  41. 410  PRINT "state or country and the program will display a list from which you"
  42. 420  PRINT TAB(T);
  43. 430  PRINT "may select the location of your choice."
  44. 440  COLOR 0,7:LOCATE 25,24
  45. 450  PRINT " Press 1 to continue or 0 to EXIT ";
  46. 460  COLOR 7,0
  47. 470  Z$=INKEY$:IF Z$=""THEN 470
  48. 480  IF Z$="0"THEN CLS:RUN EX$
  49. 490  IF Z$="1"THEN 510
  50. 500  GOTO 470
  51. 510  COLOR 0,7:LOCATE 25,3
  52. 520  PRINT " Do you want to convert Degrees/Minutes/Seconds to Decimal Degrees?";
  53. 530  PRINT "   (y/n) ";
  54. 540  COLOR 7,0
  55. 550  Z$=INKEY$:IF Z$=""THEN 540
  56. 560  IF Z$="y"THEN CHAIN"equiv"
  57. 570  IF Z$="n"THEN CLS:CHAIN"pathfind"
  58. 580  GOTO 550
  59.